home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / sbin / select-default-ispell < prev    next >
Encoding:
Text File  |  2009-05-15  |  2.0 KB  |  97 lines
  1. #!/usr/bin/perl -w
  2.  
  3. use Debian::DictionariesCommon q(:all);
  4. use Debconf::Client::ConfModule q(:all);
  5. use Getopt::Long;
  6.  
  7. dico_checkroot ();
  8.  
  9. my $rebuild  = '';
  10.  
  11. GetOptions ('rebuild' => \$rebuild);
  12.  
  13. version ('2.0');
  14.  
  15. my $class    = "ispell";
  16. my $question = "dictionaries-common/default-$class";
  17. my $script   = "/usr/share/dictionaries-common/dc-debconf-select.pl";
  18. my $options  = "";
  19.  
  20. $options = "--rebuild" if $rebuild;
  21.  
  22. sub dico_force_question (){
  23.   # Force asking question for given \%languages, or for all if not given
  24.   my $class     = shift;
  25.   my $languages = shift;
  26.   my $question  = "dictionaries-common/default-$class";
  27.   my %title     = ('ispell'   => "Dictionaries-common: Ispell dictionary",
  28.            'wordlist' => "Dictionaries-common: Wordlist dictionary"
  29.            );
  30.  
  31.   # If no explict $languages is given, ask for all, and return if none present
  32.   $languages    = &dico_parse_languages($class,"languages") unless $languages;
  33.   return unless %$languages;
  34.  
  35.   my ($choices, $echoices ) = &dico_get_all_choices($class,$languages);
  36.   fset  ($question, "seen", "false");
  37.   subst ($question, "choices", $choices);
  38.   subst ($question, "echoices", $echoices);
  39.   input ("critical", $question);
  40.   title ($title{$class});
  41.   go ();
  42. }
  43.  
  44. updatedb ($class);
  45. my $dictionaries = loaddb ($class);
  46.  
  47. if ( %$dictionaries ) {
  48.   if (get $question) {
  49.     require $script;
  50.     &dico_force_question($class);
  51.   }
  52. }
  53.  
  54. system "update-default-$class $options";
  55.  
  56. # Local Variables:
  57. #  perl-indent-level: 2
  58. # End:
  59.  
  60. __END__
  61.  
  62. =head1 NAME
  63.  
  64.     select-default-ispell - select default ispell dictionary
  65.  
  66. =head1 SYNOPSIS
  67.  
  68.  select-default-ispell [--rebuild]
  69.  
  70. =head1 DESCRIPTION
  71.  
  72. This program will make debconf always ask the shared question about
  73. the default ispell dictionary to be used in your
  74. system according to the installed ones, and will do the appropriate
  75. settings.
  76.  
  77. Calls internally B<update-default-ispell>.
  78.  
  79.  
  80. =head1 OPTIONS
  81.  
  82.   --rebuild    Rebuild emacsen and jed stuff
  83.  
  84. =head1 SEE ALSO
  85.  
  86. The dictionaries-common policy document
  87.  
  88. =head1 AUTHORS
  89.  
  90. Rafael Laboissiere
  91.  
  92. =cut
  93.  
  94.  
  95.  
  96. #  LocalWords:  ispell wordlist
  97.